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BEtilN 
REAJ. 



_C,OMMENT 

.MAL _ 



TITLE* Bb500/B9700 MAHK XlV SYSTlM KtLtASE 
FILE id: SYMBDL/RESEQB TmPE IO: SYMbUL2/ElLE000 
TH15 , .MAlEiUA^_.X-S_.£i&iL&iUU.AB.L..J.ia._Bkfiliai^JlS...C^ 
AND IS NOT TO BE REPROUUCEC* USED* OH DISCLOSED 
EXCEPT IN ACCORDANCE WllH PHllGRAM LICENSE OR UPON 

.WEI J J£W_AUI.IlillLI^A-IlQiL.aL_JM._PAI£MI_JU^^^^ 

BURROUGHS CORPORATION* UETHOir* MICHIGAN ^6232 

.CO PVR l.iitI..XC 1 . 1.9 Z_L!„.X9./ 2..,.fiLR Rau GH S C U R P Q.R AT_mi^. 

AA320206 AA332366 AA38665/ 



* 
IX3N..* 

* 

.*_ 

* 
* 



common; 



COMMENT CONTAINS VALUE_ PJINT LfiG TO 

tSp DISK. 



FILE 
FILE 
SAVE 



IN 



FJLE 
FILE 



SAVE 
FILE 
COMMENT 

FORMAT 



COMMENT 



OUT 
OUT 



RRl* RR 2» RRlO ARE USLU IN OElERM I M KG MH t T HiJi_i N P yi I S_ 

VIA CARD OR DISK. 

RRl» RR2 >RRlQj . _ _ „ _ 

CARD DISK SERIAL (l^lO'Bo'o); ' " " " "" 

REMOTE l':*C2,10); 

'^jA'^D Q-ISK SERl.ALL20»600Hi/ LO, j^oo^bAVE ili 

TbT DISK SERIAL C20I30J ( 2* 30V3o6/s'avTi )'"" ' 

NEW DISK RANDOM{1#10»300#SAVE Ui 

A.LL_ FQRMAT STaTEHENTS FPR RESEQB/T.SHaRERC A LMOST J 

SEQERRCI9'" SEQUENCE lRHURS.")* 

.N.O,M A IC H L" . N Q. .. M A T C H IJN G_ S^Q , NUt"»I10)»_ _ 
ERRHEDCI9*" FIX-UP CAHU GTR 72 CHR,"); 
FORWARD DECLARATIONS FUR PROCEDURES APPEAR In 

J?.E.ci.iQN.s .goiB,ogggo.....THRu^ 



ocuuoioo 

ooouoioi 

.,.QayuQio2 

00000103 

oooooioa 
..aaiiojii.0.5 

00000106 
0OOQ01O7 
0.000010,6. 
00000109 
OOIOOOOO 
.00.11)01.0.0. 
00100200 
00100300 
..Q.Qli)..O^.QA 
00100600 
00100700 
QQ.La.Q.aQD.. 
00^*00200 
00^00210 

oo^o_g30,Q. 
od^uo/ioo 

00400500 
0.0.50000.0 

00300 1 00 
00^00200 

..QQ.;3yo3o.s 

OObOO^OO 
00800000 

.Q.Q.8i).Q.ii)..Q. 



PROCEDURE statement; 

forward; _ _ 

iNtEGER PROCEDURE SCANNER"; 

forward; 
comment defines for classes 



00800200 
00801000 

oo.bjixoo 



DEFINE 



LANGUAGE. 

^TRlN_GIjQ s 
ARlfHlb » 
STATSTART* 

.liLJMBIB __.." 
STRING a 
DEFFUNCID* 
STDFUNCID= 



.OL...SY.Nliy.I.<^A.L_ELEME_NTS^^^ THE 



001#,_ 

002* » 

003#» 

.Q.O.#.#r. 

005#» 

006»* 

007»* 



00802000 
00802100 
..009.000.0.0. 

bovGOibo 

00V00200 
00900300 



STEPV » 
TOV » 
GQTQV » 
COMMA s 
RTPAREN * 
LTPAREN --^T.. 
TA8V • 
COLON » 01 
SEM ICOLCN " 



008## 
009«# 

011## 
012»» 



00900400 


00900i>00 


00900600 


00900700 


00900800 


00900900 



00901000 
00901100 

09C1 200 



ou#» 

016#> 



PERCENT s 
THENV «= 
LBRACKET s 



017** 
018«* 
019«* 



00901300 
00901400 
00901500 
00901600 
00901700 
00901800 



'^. 



R8RACKET » 
CROSHATCHW 
FILEV » 



02Q#> 
021 fV 

..0 . 82*^' 



00901900 
00902000 
0090210 



00902200 
00902300 
00902400 



U) 

1 1 

12 
1J 

14 

!l6~ 

17 

!,a 

19 

t- 

221 
23 
24 
25 
26 
27 
28 
29 
30 



31 

32 

33 

34 

35 

36 

37 ~ 

30 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

44 

50 

51 

52 

53 

54 

55 

56 



READV 

INPUTV 

PRINTV 

OPTION 

RELOP 

ASGNOP 

ADDDP 

MULOP 

£XP_O.Efi 

SSPART 
NEXTV 

,ENDV.._ .,..__ 

CLASS s [ 

INFOLINK 

NUMBPAR7 



Jli^tt 

0Z7», 

030#* 
tt2l63 



«' 



OOVOSbOO 
00902600 

_Q.a9.iJ2.Z.C.Q., 

OOV02800 
00902900 

....Jlfl.?i3Jim5.. 
00903100 
009032C0 

...-QOi^JiJaQD 

00903400 
00903500 
Q0 90 3 6QQ-, 



» C33:i5 
5 C 6:2? 



]tf* *OEFlNt.S KDR ^artIAL WORD iJl^ES 
]#, aAND OThtft THINGS. 



00903610 
00903700 
00903800 



COMMENT 



COMMENT 



REAU_ ARRAY 
COMMENT 



RQWNDX 
COLNDX 

CURRENT LI 

; 

GkQBAl. CE 
SECfiUN 



■ [34« 6 
« [ 4 « 8 
» C#* 

NENQ = C 



3*# 



c.l.aRat_io 
ioooooo. 



HARHYtO]* 

NS_F;(jR.„RtStUb/DjSK ARE InCLUUED IN 



Q0903900 
00904000 
00904100 



SPE:ClAi,_„lS^AN.. 
CHARACTERS. 



i R R A Y_. F. . E L 8 A I J OR D. S „ F R . _ SP£ CI.A L. 



.1 



SPEClA_LiOL3lJ; 
RwARRY IS AN ARRA 
BASIC AND CORRESP 



Y CONTAINING THE "RESERVED" WORDS OF 
ONDING ELBAT WDS, 



REAL ARRAY 
INTEGER ARRAY 



RWARRYtC«99]; 
CTARRYCq: 113^ 



00904200 
00920000 

0.1 00 00 0.0, 

oidooioo 

01000200 
01 00 3 00 
01000400 
01000500 
0100060 0. 
01000700 

oioooaoo 



01001000 

oiooiioo 

COMMENT I NDEX F LAST ELEMENT IN EACHQiOOlgOO 



AAV.E ARRAY 

DEFINE 



0LOtOI9]* 



INTEGER 



LINtO;9]; 
SSFIRST = 0»» 
SSGR OUPS s t »f 
IWFlRsf s 42#* 
IWGROUPS" 6## 
.JSM__«__iULf 

iwi = 6#; 

SCANMQCE/ 



GROUP. 

__ A ARRAYS USED BY SEQUENCER AND 

XCARDFIXUP TO HRCDUCE NEW CARD IMAGE 

:* PARAMETERS USED BY SCANNER FOR 
-1 RECOGNIZING R ESERVED WORDS. 



01001300 
01001305 
0100 1310 



01001320 
01001500 
01001600 



01001700 
01 00 1600 
Q10Q19QQ 



COMMENT 1-STATEmENT STARTER MODE, 

2-IHt)£i)DE0 WQRQ -MimL-^. 

3-OPTlON MODE. 



..aE£JME_ 



REAL ARRAY 



REAL ARRAY 



SSMQDE » 1», 
IWMOOE = 2#* 
OPMQDE = '■i»f 
C hARRY [ 0»7 7J> 
CBLMN C0S77]; 



01002000 
01002100 

01 002 300 
010CJ|400 
0100 2S0O 



COMMENT CHARRY FILLED BY CARDSCANJ 



01002600 
01002700 
O1O0 280Q 



COMMENT CQLMNtNi CONTAIN A NUMBER 01002900 

POmTlNG TO TME CARD COLUMN IN 01003000 

WHICH A CHARACTE R IN THE CHARRY 01003100 



WOULD HAVE APPEARED HAD NOT 
BLANKS BEEN COMPRESSED UUT, 



THE 



REAL 



CNOXJ 



COMMENT INDEX OF LAST CHARACTER 
SCANNED IN THE CHARRY, 

J_ 



01003200 
01003300 
(il0gj4QQ 
Q100350Q 
01003600 
01003700 



54 
55 
56 ( 
57 
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r 
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11 
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72i 
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24 
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37 ~ 
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39 
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43' 

44 

4B 

46 

47 



49 
50 
51 
52 
S3 
54 



55 
S6 
S7 



REAL 
iNtEGER 



OEFjNE 
REAL 



Nox; 

CCl* 

CCZii 

NBRSIZ# 

NREC* 

nbrclm; 



NEKLlNENO s RRi*; 

c; 



TO COL 

1.U LUL. 

COMMENT LNGTh 

% RECORD * OF 



PTH. 



1 OF CARD IMAGE 

11 CARJI. XM A Q£^ 

Of NO. (DEC. FORM); 
CURRENT CARD IMAGE, 



BOOLEAN 
DEFINE 

DEFINE 



COMMENT 

REAL 

INTEGER 
COMMENT 



Real arra' 

.INIEM-R.- 



DEf'lNE 



'cD^mment 



REAL ARRA' 
COMMENT 



.MM MLNJL__S JMIJM__PM1 J1!1N_. Of_.JiUMe.£E. - 
TO ee REPLACED. VALUES RETURNED 
BY SCANNER/ 

INt.W.ili.L.M.i'^.tt.tR AS CA^C^ BY ^EQULNCt 

COMMENT HOLDS VALUE UF NUMBER f'roM 
SCANNER. 

..^__^„„._.„ _^^..^ ^. ^^^^^ _._._„_.._ -^-^-p 



equalmccetqg; 

RELOPMOCE » TRUF.^* 

.■AigjmP.KCD£, = l A L P Lgi __.. 

EQUIV(ESUIV1/EQUIV2) » 

REALCBoOLEANClQUiVl) £qv BOOLEANC EQUI V2 ) ) 

.,......_=...„R£.AL.C NUT LAL&Uil 

WORDS USED B> SCANNE« HaSS TYPE QUAnUTy SCANNED. 



ELBAT 
ELCLA 
LINET 
BY- A... 
WD 1 

-iio 2, 



/ 

ss; 

8L CONTAINS 
,SIAILM£WJ 
L27:6] » 
15] 



[33S 
ill 

C6t 
1M^\ 



AN ENTRY For EACH LInE NUMBER REFERENCED 
ENTRIL5 HAVE, tHF FOLLHWlNG FHRM. 

OF bRanch references by this statement. 

RECORD » OF STATEMENT IN DISK FILE. 



--51. 



WD 3 

1 

.W.D...N.. 



J\tUmi.E.R_.-Ol -XQcU-fl^. C.lli_D£ U.-ilLfl.Ulii|UX.,i^^ 
BY OlO BRANCH REFERENCE. 
27 3 OLD LINE NUMBER, 
8T CARD CntUMN INDFX WHEHE STahT HF KiUmHFP 

CAN BE FOUND ON OLD CARD. 

5A j>i);..,AS-JiOJiJl-2-i:iLR-F_tiJLlh £ R C CiJJi£J^J£La.■.aF 



BRANCH LABELS. 



LINeTbL[OJ63'0:25SJ; 

LJ.N£MX^,_ _ - 

LINEMAX, 
LINECTR; 



CO MMENT 
COMMENT 
COMMENT 



£lH._J.^i. LAST ENTRY IN I^INE TBL 



01UU3710 
01003720 
Q.1.0g 3.711 
010038CO 
01003810 

01003500... 

01004000 
01004100 

H 0.100 41 10 
01004200 
01004300 

..Q.i«.Q_4./i.Q.Q.. 

;01004500 
010U4600 

^..aiMitZQQ 
01O04710 
01004720 

QlilMIlil. 

01001*800 

01004900 

Ql.p_05i2.QJl.. 

OlOOSlOO 
01005200 

Ol-O.Q5lOi3 

01005400 
01005500 

j04Q.05AC-a 

01005700 

oioosaoo 

--QXQiJ 5.9.0.0... 
01006000 
01006100 

Qioo6?ng 

01006300 

01006400 

...QUi3.6i).Q.Q... 

01006600 

01006700 

; 01OQ 68O Q 



NEXTLINEWD=C 
LINEWD = LIN 
LINEWD2 = (L 



LINEN 
ENDX. 
INEND 



LASTUSED SLOT OF LlNETBLi OIOO68IO 

SET TO ZERO AT START OF OIOO69OO 

STATEMENT SCANi 01007000 



DX «• L I NE NO X +1 ) rR Ow ND X"* lTnE NDX « C L N DX # * "' Oi0O7lCO 

HQwNDX/LiNENUX.CULNUx** 01007110 

X+LINtxTR+l ).RU'^iSOX/(LIN£NDX+LINecTR+l ) 01007120 



.GCUNDX 

linewon«(lin 



ENOX+LINECTR J.HOWNQX^ (LINeNDX+LINECTR ),c0LN0X 



INFO CONTAIN 
NUMBER. THE 
WDl [6:27] 



W02 



C33U5] 
t6l273 



S A" fiNiri\~(JR^~"EN'TR"Y"TOH 
FORM OF THE EnTRY IS: 
OLD LINE NUMBER. 
To 



EACH DEFINED LINl 



01007130 

#01007200 

01 007300 



01007400 
01007500 
01007600 



INFOLINK 
NEW LINE 



NEXT 

NUMBER. 



ENTRY, IF LAST ENTRY. 



INF0[0»63*0:2!}5]; 

SINFO SERVES AS A STAC^ HEAD, 

LINK « IFF NO ENTRIES In STmCK 



01007700 
01007800 
01007900 



18 DEC OlfilT LINE# 
GET STACKHEAD FROM 



C0NV£«TED 
STACK. 



TO S « Oct DIG INTEGER TO 



01008000 
01008100 
0100820 



01008300 
01008400 
01008500 



r 



h 



IC 

11 

12 
IS 
14 

[.!3 
116 

■n 

iia 

- 

IS 
20 
21 
22 
23 
24 
2S 
26 
27 
2B 
29 
30 



31 

32 

33 

34 

35 

36 

3?" 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

43 

49 

SO 

51 

52 

53 

54 

55 

56 

f7 



REAL ARRAY 
INTEGER 

dehne 



INlEGlR 



DEFINE 
-.COMMENT 



SINFOLO 
INFONDX 
I^FOUD 
INFOWDS 

NEXTInF 

'I 

.P.1.SHIU... 

SPECIFI 

PARAMET 

-R W «; -i^- 



idtii 



G INFO ARRAY, 
j,CCLj\D^#*_ 
* (INFQNDX + n.HUWNDX^dNFONijX + D.COLNDX* 



«1NDEX IMI 
INFONDX.ROWNI^^' INFUNCX. 



aiNFO; 
□ s c Info NO 

KFUNDX.CQLN 
,DBl.d.l..ilS__.A.._S 
EO BY COMMO 

ers is OROE 

IF Rt:At.1f « ■ 



i LA ST USED INDEX I NTO INFO* 



01003600 
01008700 
0i.008_800 
01008900 
01009000 
OIOOVIOO 



X«-Nt.XTAVAUiN 

Dx#; 
.LG_MtAI....aF_-L5_P. 



N. 

B OF APPERANC 

Q IF M R T I E. 



FU«-NEXTAVAILINF0 + 2),RUWN0X 
-D I^,- AT__IiJi A P ,aBES S__,__„ 
E AR£» 



01009^00 

01009300 
-QiiPjjOMXl- 



PROCEDURE 

-MkUE _ ._ 

ARRAY 



ARRY-AR 
N t 



RAY UATA rtl 
OF WORDS TO 
„ ■ P ISK A QP 



LL dt RtAD IN 
BE READ OR W 
I^ES^a OF ARla 



TO Uh WRITTEN FrQM. 

RlTTEiN. 

IO_di ; t^RITT E N OR R£ AD 



02000100 
02000200 
02000300 



02000400 
02000500 
02000600 



DlSKIQ{RW*ARRT#N#OISKADR)i 
iiJi.*_!ij._QISKAlLRi 



REAL 
REAL 



COMMENT 



ARRYCOJ; 

RW'N* CISKADR/ 

. aiMilUJU-aAl£U-"r4i..J.J -. 

T8LHDR FIXES UP A 



02000600 

02000900 

_.Q2QQlXlfliI 



.a£ AL ST. fi£ AM P flQ.C£DUfi£. IBLHIiaa ii 

BEGIN 

01 ♦• too tblhdr; 

: - DL.* .XllC-IB-LHiiai..- -. 



HEADER FOR TH 
._itAL..UiL 



E TBL FILE, 



0200UOO 
02001200 

02200000 

02200100 
-X122002nX}, 



S <■ 8 LIT "UlTOOO "; 
PI ^.-Oi-lJ-i-,- . 



02200300 
02200400 



OS 



Si «• Loc l; 

END OF TBLHDR; 
COMMENT PC TCN VT CONVERTS THE BCL 



dec; 

■M!i-J.a_IIl_5-£-l AL £:SUt VALIN Ta, 



02200600 
02200700 
o?30Q(^nn 



INTEGER STREAM PROCEDURE 
■ VALUE NBRj ^ 



aCTCNVT(NBni); 



02300100 
02300200 
02J0Q300 



BEGIN 

SI ♦■ LOC NBRi Dl * LOg QCTCNVT; OS ♦ 8 CcT; 

-EM M nC TC N VT i - - 



02 300400 

02300500 

Q23QflAm3- 



COMMENT 



DECCNVT CONVERTS THE OCTAL WO NflR TO ITS tOUlVALENT 8 CHK 
BCL REPRESENTATION. 



REAL STREAM PROCEDURE DECCNVT C NB«) > 

VALUE nbr; 

BEGIN _____________^^__ 



,023b0000 
02350100 
Q2 3$02Q<3- 



SI «■ LOC nbr; di «• LOC oeccnvt; 

END OF DECCNvT; 
COMMENT GETA B SADD R R ElURNg THE ABSOLUTE 
PASSED, 

; 

REAL STR EAM PR OCEDUR E G ETABSADORCPJ 
BEGIN 

DI *■ l; getabsador ♦■ oi; 
END OF getabsapdr; 



Ds ♦• 8 dec; 

addr ess of the pa ra meter 



02350300 
02350400 
02390500 



02350600 

02350700 



02360100 
02 360200 
Q236O3O0 



CA^SCAN scans CAR¥ COLUMN FOR 
CHARACTER OH < SPECIAL > CHARAC 
COL 73-60 IS CONVERTED TO OCTAL 



<NUMERIC' OR DIGIT > 
TERt SEQUENCE NUMBER I N 
AND PLACED IN ARRYtOJ. 



02360400 
02360500 
02360600 



10 

11 ( 

12 

13 

14 ( 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 ( 

24 

26 

26 ( 

27 

28 

29 I 

30 

31 

32 i 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

41 4 

42 

43 

44 \ 

46 

46 

47 ( 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

66 ( 

57 



COMMENT 



STREAM PROCEDURE CAROSC AN C CC 1 # CC73* aHR r ) ; 

VALUE CCl'CC73; 

BEGIN 
LABEL Ll»L2* 
SI *• CC73f 01 » ARRYf DS ♦ 8 OCTJ »CNVT LINE NO 



03000000 
03000100 

030002 00 
03000300 
030U0400 

gjooosoo 

03000600 
03OUO7O0 
03000600 



• • 



V- 

"I 
'si 



Lr 
11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

3(i 

37 ~ 

38 

39 

40 



"I 
42 



43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 
55 
56 
f7 






COMMENT 



DI <• CC73; 

3CDS «• LIT "«"; OS «■ nr ••""); 

D l-.*:..AmU,Ji).L^t..Ml±^Ll.L...<c Ci: 1 > 

IF SC 5 ALPHA THEN 
BEGIN 

DS ♦. chr; go tq lw 
END ; 

DS J- 7 LIT "loooojoqi'; 

IF SC Jt "i" THEN GO TO L2; 

OS ♦ chr; 

EMJ. CAR^lS^AhJ 



* INSERT STGPPER 



COMPRESSCARD»REMOvES tiuANKS FKQM THE CHARHY. A COMPANiON 
ARRAY CDLMN PQInTS TO THE COLUMN aHEHE THE CHARACTER 

-kBEJE^ARLJ}- H E F R£-XailHJiL-^-Milk^- - 



PROCEDURE COMPRESSCARO; 

B£Q,.IN- _ _ _ ..„ , . 

INTEGER TCNDX; 

CNDx ♦• c; 

.„ _ N.D-X t...C.i __ 

WHILE CHARRYCCNDX«-CNDX + 1]^-"X" DO 
BEGIN 

..- _ I£- CHARM.L.CfctaxJ ^....^._!L.Ui£k. 

BEGIN 

CHARRYCKDX ♦ NDX + U <• CHAHRYC CNDX ] > 

-.- -..- CDlJ(IMA.0XJ..-> CND-A.i ...,_ ,.._ 

TCNDX *- CNDx; 
END ; 
E.ND 1 .„.____ _.._._^_ _ 



COMMENT 



ChARRY[NDX«-NDX + 13 *■ ChARRYtCNrjXJ^ COLMNCNqX] *■ TCNOX + I^ 
END OF COMPRESSCARO; 

" STEP I " GETb THE NExT I^LBA I wQHD A ND ST UFFS ELCLAbS V<ITH 
THE CLASS OF QUAiOITY SCANNED, 



030C0900 
03001000 

Qiyauoo 

03001200 
03001300 

.Q.aoyi40_o 

03001500 

03001600 

....039.917 QQ 

03001800 
03001900 

.fliOaaQiio 

O31UOOC0 
03100100 
QHQOg OO 
03100300 
03100400 

..oiiiiiisao-. 

03100510 
03100600 
..Q.ili^.Q.l.SlQ... 
03100800 
03100900 
..QJ.l.ttl0.1J.Q. 
03101100 
03101200 
flil.Q 1.300 
03101310 
O31UUO0 

-.a3iijQi.5nxi 

03101600 
03101700 
04200 000 



l^'JM.E.R . PROCEDURE S T E P I ^ 
COMMpNT 

PROCEDURE 

COMMENT 



STEPI *■ ELCLASS ♦- SCANNER> '" """ 

"stePit" Same as sTt:Pi except no value Returned. 



STEP it; 

elclass * Scanner; 

BLDiD packs a C_HA_RACJEH_jntO A hORO AT T HE CHAR ACTER 

P6SlTlCN"'SP£cYFi£D"BV'""CHRP0S. 



04200100 

04200200 

04 200 30.0 

042 u 04 00 

04300000 

043 00100 

b43'002bo" 

04300300 

04400000 



STREAM PROCEDURE BLD I D C ^^D^ CHAR* CHRPCS ) j 



04400100 

04400200 
04400300 



VALUE 



CHARf CHRPOS; 



BEGIN 



DI ♦ wo; 



01 * oi+CHRpos; 
SI ♦ Lcc char; 

_ Sl » S>l*7 i 

DS ♦ chr; 

END OF BLOID; 

_ SC ANNER RETURNS AN EL^AT WQ RD AND fct C uASS WqrO TQ THE 

caller indicating the t ypt quanti ty "scanned , 
Integer procedure scanner; 



04400400 
04400500 
04400600 



04400700 
04400600 
04400900 



comment 



04401000 
04401100 
04bp0000 



LABEL 
tABEL 



BEGIN 



04b00l00 
04500200 
04i>00300 



cqmpresschar*skipt8pehcent; 
fra,cti0npart'bonothin«i 



04^00400 
04500500 
04b00600 



li 



2 
3 
4 
\b 

u 
1/- 

e 

9 

III 



Q 



116 
)■/ 
118 
19 






22 

23 

24 

to" 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

46 

49 

50 

51 

52 

53 

54 

55 

56 

57 



LAbEL 

.k_AB£L 

INTEGER 

INTEGER 
JNIEMR 

INTEGER 

REAL 

SWITCH 

DEFINE 



REAL 



PERIOD* LESSTH 
GREATiRTHAN, T 
LLTT£.fi£ALYj._ L£ 

next; 

FSAVE# EXPONt CTNDX; 

..ic_NMi'._ _ ._Mmn...... 

ctr; 

t; 

specials ^ *■ heri od . 

greaterthan* 
SPECPART 9 [eu]#; 

-I4J : 



AN* ASItHlSK* tOUAL/ QUOTE* 
IME3* XIT; 



E NDNl jMBEH* 

*TEMP FUR LOOK-AHEAD IN GHARRY 



FUTILITY COUNTER 
XFOR GENERAL USE 
_Ljt.bSJJA^^„.A_STiKIb:ji^_.iJiUli^4, (iy.i}l£i. 



TIMES; 
*IF 
lUSiL 



NOT 0* SWITCH FR SPECIAL HNDlING 

a_iii-JiU-i4fi£&-auiu3 



low^ high* 

MAX* 

alphawd* 



0^bQQ70Q 

..-M5 Q.O .*QQ 
04501000 
04501100 

QAmiZQ(}. 

04bU1300 

04bOl400 
_a.4^Ul5.0ii 

04501600 
04501610 
■04501700 



*INDEX BRACKETS FOR CURRENT GROUP 04501800 
^NUMBER QF GKOu^S 04501900 

^ACCUM FOR BUILDING RESE RVED WD. 04502000 



BEG I 

compresschar: 



CTX 

IF T 



N 



* CHARRY[ 

commenlj: 



XUTI 

cndx ♦• cnox 
haracter is 



LITY COUNTER 
♦ n < THEN 

A spE ci AL character; 



04502100 
04502200 
04502300 



.PERIDDJ 
LESSTHAN 



I 



IF T 

T «■ 

ELBA 
CO MM 

; 

IF T 

GO T 

C t_ 

IF T 



IH 



5 - " X " 

T + 2; 

T *■ SPECIA 

cn't note C 
from left 

'<i^Tl,iAT'.'s 

SPECIALS 

0J._.IiILJ:il_X 

♦ CHARRYC 



EN T «■ -" " 

XDEC 

LIL, C45I3J& 

ompressIqn 

* AFTE« DEC 



; 

HEASt INTERNAL CODE BY 2 
TC42.:41l JJ]* 



TECHNIQUE THaT DELETED THIRD BIT 
REASING CODE BY 2. 



045U2400 
04502500 
04502600 



04502700 
04502800 



PECFART = THEN GO XIT 
W[T]; 

!?AiL.lIXm£AtiIJ 

Tl <■ CNQX + n 



-t»>i 



Then 



BEGIN 



CNDX » Ti; . 

T * -"X'S 

GO cqmpresschar; 



04503000 

04503100 

..QilJ^Jii2.Q.a. 

04503300 

04503400 
0450350Q 



£NB.i. 



ASTERISK! 



IF T ^ -"9" THEN 6Q XIT; 

CNDx *■ Ti; 

J _^±_ w W£m; _ 

GO TO CCMHReSSCHAN* ' 

IF CHARRYtTl *■ CNDX+IJ X -"*" THEN GG XIT* 

CNDX <■ Ti; 



04503600 

04503700 
04503flOQ 



04503900 
04504000 
04504^00 



04504200 
04504300 
04504400 



XUSE BLANK TO FAKE EXPON OPERATOR 



EQUAL* 



BEGIN 



T ♦ "" «; 

GO compresschar; 

IF T * CHARRYCTl ♦ CNQX-H] « **'<" THEN 



04504500 
04504600 
045047QO 



CNDX *■ Ti; 
T «• -"<♦♦; 



GO compresschar; 



end; 

BEG I 



IF T a -">" Then 



04504800 
04504900 
0450500_0 
04505100 
04505200 
04505300 



N 



CNDX «• Ti; 

T * * " > " ; 



04505400 
04505500 
04505600 



END 



GO compresschar; 

I F EQUALMUDETOG THEN GO XIT ; 
f 



04505700 
04505800 
0450 5900 



-»'. 



_Q.UUI£.|. 



«. ■• T. ^ t, ^ 

GO compresschar; 

WHlLEtT>CHARRY[CiVDXvCNUX + m <<-"«" DU 

If T ■ - • THEN GO XIT; 

COMMINT NU MATCHING lUOTE* SO ReTUHN "X"; 
T » CHftRftltCNDXll GO COMPRESSCHARi 



04506000 
04506100 
0454.6200 
04506300 
04506400 
045Q65QO 



J5? 



m • 



1 

2 

3 
4 

6 
6 
7 

"i 

'\- 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

20 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

38 

37 ~ 

36 

39 

40 

41 

42 

43 "" 



45 
46 
47 
48 
49 
50 
51 
S2 
M 
54 
S5 
96 
57 



GRtATERTHAN! I F T «■ CHARRY[Tl *■ CNDX+n s ""<" IHEN 
BEGIN 

CMX_t.JLli 

T ♦ ••?!x«; 




IF T / -"a 

CNDX ♦• Tli 



THEN (iO xrr; 



TIMES I 



GO compresschar; 

lfLX..±_XMAARLLnJ:CNDX.j-ll__l_ CH ARRV ECNDx*l3[36»a2l63 g 

"E«" THEN 
T «■ -"s" 

XU£ _ 



IF T » «N£" THEN 
X «. «»»>[« 

ELSF 

IF T » "GT" THEN 
T * -">" 

.ELS£ _ 

IF T 5 «LT" THEN 
T ♦• ••»<« 



IF T » "GL" THEN 
T «■ " !! > " 

„.£LS£ _,_.. 

IF T a "LE" THEN 
J «. ■• ti < II 

.IkSL_GC_X.IIl 



COMMENT IMPROPER RELATION At; 



CNDX «• lli 

GO compresschar; 
END of_ Special character handling; 



IF T < 10 THE^i 
BEGIN COMMENT NUMERIC OlGlT-ASSEMBLt NUMBERJ 
..TX.NDX «--.(IliDX.l _ 



C * t; 

while T <- CHARRYtCNDX«-CNDx + l J<10 AND T a DG 

.x„._t-..-i.fl.xe. ±_n_ 



NBRSIZ •- COlMNCCNDXJ-CQLMNCTCNDXJ; NBRCLM ♦ COLMNtTCNDX) 
IF SCANMOUE " IWMODE THEN 



BEfiJlL:. 



IF T = -"«•♦ THEN % SKIP OVER FRACTIONAL PART, 
FRACTIONPARTJ while T *■ CHAWRYCCNDX ♦ CNDx+I] < 10 AND T > DO;%NGTHI 
_ _ ____ _ IF T g -"»" UR T s"E" THEN 



OONOTHlNGi 



IF T ♦ CHaRRYCCNDX * CNDX + 1M« ""— ' THEN 

WHILE T ♦CHARRYCCNDX * CNDX-^lJ < 10 AND T i 00 XNOtHI 

._ikS£ _. _.,: ^ __ „__„^_ 



ENDNUMBERt 



BEGIN 

IF T X -"+" THEN 
IF T < OR T > 10 THEN CNDX » CnDX*1; 

GO donothing; 

END I 

END OJL FRACTIONAL AND EXPONENT PARTS^ 



CNDX ♦ CNDX-l; 

ELBAT ♦ & NUMHERLlt43:5]; 



G 6 X I T j 
END Of NUMBER BUILDING 

ELSE COMMENT CHARACTER IS A LETTER*REC06NITION PROCEDuIe 



04t306600 
04506700 

04506900 
04507000 

045U7200 
04507300 

-Q.i»5..QZ4M 

04507500 
04507510 

., QASOIfeiLQ,. 

04507700 
04507800 

■—04 501.9100 

04508000 
04508100 

_..iliL5.M2iliL.. 

04508300 
04508400 

-Q.450.Q.5.Q_0.._ 

04508600 
04508700 

QAM83Q.Q.. 

04508900 
04509000 

._....-Q.4.iQ,9lQQ 
04509200 
04509300 

0450 9400 

0450'9506 
04509600 
04509700 
04509800 
04509900 

M5JilflQ£L. 

045U000 
04511100 

QiL5j.lgQa.,. 

; 04512000 
04513000 

04514000 

045i4lOO 

NG04514200 

04514300 
04514400 
NO 045 1 4500 
045 14600 
04514700 
04514800 
045149 00 
04514910" 
04515000 
0451 5200 
04515300 
04515400 
045l550 ,a-.- 
04515600 
04515700 

Q»5t5eoo 



i; 

3 

4 

|5! 

'6' 
U 
l\ 

fl 

3 

r 



ifii 

■i7 

ail 

23, 

26i 
26 

38 

H 

bo 

r~ 

|32 

33 

w 

36 

U7|"" 

l38 

39 

40 

141 

3 



BEGI 
BEGI 



END 
BEGI 
LETTERONLYJ 

LillERPIGiT; 

END 
END 



FCR RESERVED WORlJs; 
IF NEXT ♦■ CHAHRYCCNDX + 1] < THEi^ 

N 

IF NEXT = -"S" THEN 
N COMMENT ELBAT WO FqR STRINGlO> 
. LLIAI t a l.^IEJ.Nai.DLl,l..lAi;A]J _. 

CNDX ♦• CNUX + i; 

60 xit; 

n comment elbat wukd for arlthlu; 

EJUBAl «• & A«ITHI D[i ;ft3»5]; 

GO xit; 



0<lblb900 
G4bl6000 
a451.61QQ. 
0^bl6200 
04516300 
. Q.15JL6AQiJ-. 
OaSl6500 
04516600 

04516600 
04516900 
..AA5.l75_a0. 
04517010 
04517100 
04517200 



I44 

46 
47 
ttl^ 
49 
50 
51 
52 
53 
54 
55 
56 



IF NEXT < 10 THEN 
BEGIN GCMMENT LETTEH-DIGIT COMBINATION; 
CNDX ♦ CNUX+i; 

GO uetterdigit; 



end; 

BE G.I 

END 
BEGI 

END 



C.QMM£liT. Ri5..LRVEi3 ftUKP. .RiC..DMiZI,R; 

TCNOX ♦> CNDx; 

IF SCANMOOE = SSMQDE THEN 
N COMMENT -SI A T1M£NI. MAR I&Ri 

LOW *■ SSFlRST; HIGH «■ C TARRY L CTnuX «-Sii U ; 

MAX «• SSGROUPS; 

ELSE 

IF SCANMOOE » IWMODE THEN 
N 

LOW * I W F iR ^TJ _H I 6 H J?l__ C T A R^Y C C T N D_X «• I W13ji_ 

MAX «• iwGRouf's; 

ELSE GG SKIPTQPERCENT; 

CTR_«L.2i _ 

CNDX 4. CNDX +i; 

BLOID(ALPHAWD*T*n; 

DO 



04517300 

04517400 

.fiit.5l75.QQ 

04517600 
04517700 
.QLil.5i.7Ji30. 

04517900 
04516000 

04518200 
04518300 
-0_4 5_ie,iiO.Q. 
04518600 
04518605 
04518700 



04518800 
04518900 
0451900 



BEGIN 

BLDIDCALPHAWDW'JEXIJ'CTH); 

FOR R_WNI3X ±_L.OW STEP t UNT IL h iGH 00 „ 

IF EQUiv(ALPHAWD*RWA"RhY[RwNOXJ ) THEN 
BEGIN COMMENT FOUND RESERVED WD.* GET ELBAT WD; 

IF (ELBAT«-RWARRY[RWNDX^RWNDX-H]). CLASS » STDFUNCI D THfN» 

XNOTHI 

ELSE 
- I£-£i^AI.^CLAS^ = D£FFUNC ID__IHiJ^ _ 



04519100 
04519200 
04519300 
04519400 
04519500 
04519600 



. -. - £_ND 

_ E.Mft. 



IF NEXT «• CHARRY£CNDX*CN0X+13 < 10 THEN CNDX«.CNDX- U 

GO xit; 

m. GHQUP OF N CHAR WDs; „ 



LOW ♦• HIGH42; 

HIGH ♦• CTARRYCCTNDX4-CTNDX + 1 j; 

., UNIIL. ,. _ 



04520600 

04520700 

JL4520aaiL 



04519700 
04519800 
M 045i 9 9 Q.a. 



NG04520000 
0452010C 

Q.i5.afl2aQ. 

04520300 

04520400 

■_-_.o:.432ii500 



NEXT ♦• CHARRYCCNDX*CN0X + 1 3 <10 OR OTH «• CTR + 1 ^ MAX+l; 04520900 
COMMENT NO MATCH* THEREFORE ASSUME LETTER IDENTIFIERS 04521000 
CNDX » TCNOx; _ Q_4_51U0X 



SKlPTOPERCENTi 



XIT! 



GO TO lftteronly; 

IF T «• CHARRYCCNDXJ ^ •"«" THLN 

WHILE T ♦ CHARRYtCNDX ♦ CNDX+lJ ^ -"X" 00;XNOtHlNG 

GO cqmpresschar; 



04521200 
04521300 

045|>ia05 
04521400 
04521500 
04521600 



J? 



# • 



>'■■ 



6 
/ 

tl 

I 
9 

-,u!- 
II 
iipj 
IS 

14 

15 

16 

17 

18 

19 

liu 

l21_ 

22 

23 

54 

2S> 

m 

27 
28 
29 
30 
31 
32 

". 
M 

■)B 

3e 

J?' 

30 

J9 

40 

11 

4w: 

4.'J 



45 

te 

4V 
48 
49 
50 
51 
52 
53 

36 
56 



.COMMENT 



BOOLEAN 
REA]^ 

LABEL 
I NTE GER 



foundj 

COMMENT 



SCANNER «• ELBAT, class; 
END OF scanner; 

S.CRAML.CC.Ii JiCaAHaiXi-..A_LlJl£Na...MJQD..iii7., 

FROM THE SINFQ ARRAY THEN DUES A lINE 
MATCHING LINE NUMBER. oCRAMLOOK RETuR 

ELlE„XALSi:A_XailM_Al PAR AMETER lINENU W 

FORM UF FIRST WORD DP InFO ENTRY rtlTh 
TO MATCHING ENTRY IN INFO IF FOU^^C U 

PD.l,NTl,NG,.J.Q,._.mP flE STACK J _ 

PROCEDURE SCRAMtOOKCLINENO); 
-LlNEfjtj; __ „ 
BEGIN 

found; 
1' 

IF (f «• INFONOX *■ SINFUCLINENO MOD 12 
IF INF0[lNF0WD3.NUMePART s lINENO THE 

.ilEG.lN 

SCRAMLODK «• true; 

GO found; 

. END UNl.I L I.^^FU ND A .•^.._ 1 1\ FOiiflFpjN D I j^ XN £ 0_u_l N K 

INFONDX ♦ T; 
SCRAMLOOK «. false; 

L.INE.NQ .,«■ & L.lM.NQJ.6i^ll27J <i IJ^^F 

END OF SCRAMLOOK; 



XD-..GlLJ JL...SXAJ: K HLAD... 

AR SEARCH FOR A 
NS TRUE IF FOUND, 
Ii..L..JiiL_ni2M£al£Il IQ. 



045^1700 
04b21800 

0,5-0 Q 0000 
05000100 

05000200 



LINK PART POINTING 
R, IF NOT FOUND THEN 



73) ;< THEN DO 

N 



05000400 
05000500 
050006.0.0 
050U0700 
05000600 

.il5.Q.Q .055,0-. 

05U01000 

O5O0U00 

05001200 

05001300 

0500U00 



s o; 



EE0CE.DU8E 
INTEGER 



OEFLINENQ MAKES 

.D1.F.I.NEC LI-NEN.Q,.. 

THE ENTRY. 

OEfLLM£NDJ ^ ^ _, 



A rwowuND entky In th 

S £ E._ I N.F n U.t.C.Li .R A..I,J. UbU- 



L33|JlLL5Lli _ 

E INFOARHAY FQR 
£0 a.,.. O.LSCJiLP l.l.a.N. .0.F 



BEGIN 



t; 



XURRENTLlNEMlli-. 



COMMENT 



T* IF SCRAMLOQK(C) THEN C.lNFQLlNK 

ELSE o; 

IF MNFfiNQX «•_ II a._Q .LHE.N 

BEGIN 

iNFOtNExTlNFO] «• C; 

SiNFOtC^NUMaPART MOq 1^7] ♦-.INFONDX; 

lNFdClNF6w02i *- i NLWLlNENQC6:2i»27 

end; 

K„ND QL CLFLlMElia.; „ _ 

ENTERLINETBL MAKES AN ENTRY IN LINLTBl FOR 

In a statement tu a biunch number, se 
tiqn for for m of entril s. 



05001600 
05U01700 
Q..5 .00. 18.00- 
05001900 
05002000 

.05,0.021.00 
05002200 
05100000 

.05.10010 
05100200 
05100300 

,.05100.40.0 
05100700 
05100900 

..aiiUi4XI.Q. 



]; 



EACh REF , 
E LUETBl QECLARA- 



05101200 
05101300 
.Q5..1..QIAQ.Q. 
05101500 
05101600 

..os.io.i2..Q.a.. 

05101800 
05102000 
05102100 

05500000 

05500100 

..,05^00200.. 



PROCEDURE 



BEGIN. 



enterlinetbl; 



if linectk = then 
linetbl[nexilinewqj ♦■hhec; 

..,-iINECJR i^,_JJLN£.Cl.R f 1/ 



05500300 
05500400 
05500600 



END 



comment 



LINETBLCLINEWON] * 
& CC«>«21»27]; 

OF enterlinenumber; 



05500700 
05500800 
05500900 



N8RCLM & NBRSIZC33UU73 



COPY MOVES N CHARACTERS FKUM THE OLD 
NEW CARD BUFFER. ON £xlT#CQPY POINTS 
CHARACTER IN THE NEW CARD BUFFER. FRO 



CARD BUFFER 
TO THE NEXT 
MDLDCARD lb 



TO THE 
AVAILABLE 
RESET TO 



05600000 
05600100 
056002 00 



1 



^. 



I 

REAL 



POINT AT THE LASTUSED CHARACTER + 
STREAM PROCEDURE CUP Y( N^FRQKIQLUCARQ/ TONE WCARp ? , 



06000000 
06000100 
0600020 
06000300 
06000400 
06000500 



rui 



'16 
17 
IH 

:■!>' 

PI 

ail 

K 

26 
27 
28 
29 

30 
31~ 
32 
33 

34, 
35 
36 

lb?" 

38 
39 

41 

«2 
43 
44 
4S 
«« 
47 



K 



VALUE 
LOCAL 



BEGIN 



n#fromcldcano*toi\i;:*ncard; 

i 

NDIV64* §,i 
si * LOC N; 01 ♦ lUC NDIV64; 

Si «. si+6; 01 * ui+7; us ♦ chr; 

SI * FRCHOLDCAROf 01 <■ TO NEWCA RD; 



NDIV64(DS «- 32 CHR/ U5 «- 32 CHR)/ US ♦• N CHR; 

cePY *■ 01/ 

END 01 .- CilEXX.- - _ - -..- _ - 



COMMENT 



PUTlINE moves a line N0M6EH OF N CHARaCTEHS INTO THE 
POSITION SPECIFieu IN THE NEW CARD BUFFER, THE POINTER 
FOR THF NEW CARfl BUFFER IS UPpATFQ TQ PQ TnT aT THT nFXT 

available character. 

« 

. R E A.L ,.SJM A M _ P,R0.C E5 URE PUTLiNE(N^lINLNQ,CH D.AILIIB.1 J 

value n, lineno*crdaoor> 

BEGIN 

__ „...§ L...*_iCX-i.-IN£liai_.D.i._«r^.£RDAnDE.i- . 

N CDS * CHR); 
PUTLINF. 4- Dli 

„., E.ND UF...PAiLUMLi -...-... -,.-..- - 

COMMENT AOVCRDAOOR ADVANCES THE CHARACTER HOIntER N CHARACTERS 

; 

.M.A_i SIRE AM _PRDC£D.UfiE.._AD.VC-fiDAQD.fi..Clii.CiiaAnDiiJ.i _.. _ _. _.... 

VALUE N» crdaddr; 
BEGIN 

SI *■ CRpADOR; S±,.±_SUAi -.,. ,. 

advcroaddr *■ si; 

END OF ftOVCRDAOORf 

...C.0MM1.I5J.T G ET SIG NUM COUNTS tHE S IGN IF ICANT UIGIT S JN A DECIMAL NUMBER 

AnO PLACES THE NUMBER IN THE hlGH URDER POSITION Op ThE 
WORD. 



06000600 
06000700 

-MO 00.8 0.0 
06000900 
06001000 

-.0 6P01 20S- 

060U1300 
060CUOO 

-Mjt-QSiXtQQ 

06100000 

■06100100 
Q6l Q Q?nn 

06100300 

06100400 

- 061005 00-.- 



06100600 

06100700 
a6l.Q.QaQ^0 
06100900 
06101000 
06-101100 
06200000 
06200100 

.062005-05 

06200300 
062U0400 

OAi-O-flS-QIJ- 

06200600 

06200700 
06300000 



Integer stream procedure getsignumcuIneno); 

BEGIN 
..L.D.£,AL - iZhES. _.,„- -.- - ^ 



06300100 
06300200 
06J00300. 



SI *■ LiNENo; 01 ♦• lQC temp; d3 ♦■ aus; 

SI * LINENO; DI *■ LOC TEMP; 
.■7XJJL.-i£-=. '?0 'L.lilLN.-Ji.E GiJ!L.IlS_»_.-ilX„.:!_.^_iLL.-jt 

JUMP OUT); 
SI «■ LOC temp; 01 ♦ LINENO; 
8 (IF SC >< *' " THEN BEG IN OS » CH R; T ALLY * TALLY-HJ END 



J-Lil 



06300400 
06300500 

.06 3iia600 
06300700 
06300710 

■06300 800 
063U0810 
06300900 
06401000 



ELSE SI *• si + n; 
TEMP *■ tally; 

SI *■ LOC TEM P; DI «■ l(j C getsi gnum; ds » wps; 

END OF getsignum; 

COMMENT COPY BLANKS C0PIES N BLANKS Tq SPECIFIED AREA. 

;„ • __ _ •_ 

stheam procedure copyblankscn^cRoaodh ); VaLue n/ cRdaddh; 

BEGIN 

LO CAL _ t; 



06401010 
06401100 
06401200 

06401350 
06S0O000 

,Qi5.e.0L-aiL 

06500200 
06500300 
06500400 



Sl ♦ LOC N; DI *■ LOC T; si «• SI+6; DI ♦• Dl + 7; 05 * CHR; 06500500 

DI ♦ crdaddr; TC4CDS ♦ 16 LIT »• ")); 0650()600 

; NC OS-*- LIT " _r-l?, 06500610 

END OF COPY blanks; 06500700 

COMMENT CAROFIXUP SCANS LiNETbL THEN USING SCRAMLGOK FINS THE 07000000 

-_ NEW LINE NUMBER TO BE USED WhtN F IXINq uP THE _CABD.. I.MAGE* 07000100 

; 07000200 

PROCEDURE CARDFlXUPi 07000300 

BEGIN ' Q7Q00&QQ 



r- 



INTEGER 



II '■■ 

r 

In ' 

ll 
If. I 

7 

»1 
9 

10 

VI 

n 

13 
14 
IS 
16 

17 
IB 
lil 

120 

|J1 
tl 

■n 

24 

2b 

»! 

27 

28 

29 

30 

31 ~ 

3J 

33 

|:i6i 
137" 

36 
39 
4U 
41 
M. 



43 
44 
45 
46 
47 
iA 
49 
iO 
51 
52 
53 
S4 
56 
56 



DEFINE 
DEFINE 

REAL 

LABEL 
COMMENT 

• 

,J! 

PROCEDURE 



fromcul^uptgcol* 

QL.ONU.X.tfv.L-W.NUK/. _ 

INPTR* OUTPtR* 

NJIHR....^ 

RCDN * 
NFIX* 

..IfcLS.,11..,,..; 

INCOL « upfocoL#; 

I » LINECTRKf; 
LllitMXli _, 



XIT*BACK*NEXTCR0/ 

ERROR PROCEDURt-CAHDFiXuP. 



COMMENT COPY FROM COLOMN UP TQCBuT 
NOT INCLUDING COLUMN; 
.iyMilLNX_Pil.I,NlkR..TD KLXX-AMli-ABLL 

column; 
^points to nextused or nextavail are 

* » OF SIGNIFICANT FIGS. IN LINENO 

liHECnHD i^JiERt CARD IMAGE lb SAVED. 

A * OF FIX-UPi> FOR RECORD N, 
1 t OF COLUM J^,_b .Nii.R__^ KJ _QN_ 1 D CA R D » 

•*> COLUMN >^HERt * STARTED. 

XINDEX 
.l..ALJiQSX..AL*ijT^ Jy:£M LiJiEL J!i.a*lIlfLCIi. 



BACK! 



B£GI 

END 

BEGI 



BEGI 
BEGI 

END 



err; 

N 
. WBITXCREMOIX * £.RfiiiEllxilt Iil.(ii/.lXL J-N C9 iJJi 

OF err; 

IF LINENDX s THtN GO XH; %N0 FIX-UPS 
,..tiilEMA^-..fc L-ifcLtJiaja Xak£M}.X.-.*.ai- _ 

WHILE LINENDX < LINEMAX 00 
N XSTART OF LlNETBu LOOP. 

N£i!!_NDX..*..iii.„iUJlMIX.._*Qj _. _... 

RCDN *■ LlNETBLCNtXTLlistwD]|[33!153; 

NFIX «- LINETBlCLINEWOJ. [27:63; 

R£ADCii£WIii.(lIlNl*.iiJxfl.Ln,i.*.lJi_. _ . 

INPTR «■ RHIO <■ GETABSaUDRCOLD); 

OUTPTR * GETABSADDRCLIN); 
CO P_Y BLA!^ KS(flO»OUTPTR?; LINE93 * _5J..a„ LSLli 

FOR I <■ 1 STEP 1 UNTIL NFIX DO 
N 



ii:_.J_:L_i_ltl£N. 



N 



07000500 
07000600 
070 Q 07.00 
07000800 
AO7OOO9OO 
.0750.0905 
07000907 
07000908 
.07 000 910 
07000915 
07000995 
.Q.Z.O.Q.200.0 
0700ii500 
07003000 

-.jaziJii34Xi.a.. 

07003200 
07003300 

QZfl0 3itflO-. 

0700^000 
07103000 

.,.-ozxa3-i-aa . 

07103105 
07103110 

a7_liJ 312.0 

07103200 
07103300 

..07A.a34.0i)... 
07103500 
07103600 

._iJi.l.QJ.6il5_. 
07103700 
07103800 
0710 3900 



FROMCOL 

; 

UpTocOL 

NCHR ♦• 



1 



BEGIN 



"«• L'ineTbL fLlNtWDN] \Ykiy^^Yi 

UPTQCUL-FRUMCOi.; 
IF(NEWNDX»NE>N N D X*NCH R \ > 7_2 _I_H E.N _aE G 1 N _ ERR; G O NEX TCRP/END ; 
OlDNDX <■ QLONDX +NCH«; 
OUTPTR «■ COPY(NCHRMNPTR#OUTPTR); 

.lN.SlJ,...f„..k.LNETB_LJ„UN£W0NL2js_C33J7 3; _ _ 

INCOL «• LINETBLCHNEWUNJ .[^oiai; 

IF SCRAMLOOkClINENU * ulNLTBLtLlNL-'iDNI.NUMBPART) THEN 



07104000 
07104100 

Q.7..1042e.Q.. 

07104210 

07104300 

0.Z 1 4 10 0„ 

07104500 

07104600 

07104800 



BEGIN 



IF INF0CINFOWO3.tl«53 " THEN 

■ 
LINENO ♦ DECCNVT{INF0tlNF0WD23.NUMBPART); 



07104900 
071U5000 

07105005 



END 
BEGIN 



lNF0tlNF0W0].CH53 o i\CHR «- GET S IG NUM( LINENO ) ;" 

INFDCINF0WD21 «• LlNEfMO; 

ELSE 



07105010 
07105100 
07105110 
07.105120 
07105125 
07105130 



END 
END 
BEGI 



LINENO «- lNFOr.lNFOW023; 
N CHR » INFOCINFOWD3,Cl»53; 

ELSE 



07105200 
07105210 
07105300 



N 



WRlTS<REMOTE#?jOMATCH#LlNET8LCLlN£WDN3); 
LINENO •.0ECCNVT(LIN£N0,NUMBPART); 
NCHR » GETSIGNUM(LINENO); 



07105400 
07105600 
07105700 



07105710 
07105720 
0710S730 



^ 



D 

|in 
n 

PI 



17| 



E2 

^3 

,24 

b^" 

(26 

27 

28 

29 

30 

31 ~ 

32 

33 

'07- 

38 

39 

40 

4, 

42 

43 

44 

46 

46 

47 

48 

49 

50 

51 

52 

53 

54 

56 ~ 

56 



END ; 

IF(NEk\NDX«-NEwN0X + NCHH)>72 THtN BlOlh IRR} GO KtXTCRO; 

OUTPIg...*...P.UlLINLLI^vMi.kLf!^Ngj_Q.U.T^ ......._ ...__ , _. 

OLDNDX *■ INCQU + INS1Z> 
RRl «• OLONDX-i; 

Il^Tfi-» AaV-CRXXAJlD&XaEi » RR m-li- - - 

IF I = NFIX TMEiNi 
BEGIN 



^- 



BEGIN 



IF P1C.hr ,..«-_._LmtJ-aLXUM-WJ3.i,X2iJ.lZl -/ -Q LtiO. 

i 

NCHR ♦ NCHR-OLDNOXi 
.l£...,tN.EAtiDJC_*....NEWISiaXjLfiXLJiaJ---->-.Z2. TJi^ 



BEGIN 



..LN.D.. 



err; go nlxtcrd; 

J 



07105740 

LND;07106000 

Oil 06 100 

07106200 

Q7106290 

07 1 06 30 

07106400 
07106500 

— aZl.Q.6^Qfl.. 

07106610 
07106620 

07^1166 30- 

07106640 
07106650 

0710666a-. 



qutptr ♦ C0PYCNCHR'INPTR*0UTPTR); 
END ; 

EN.0 .i:ls£.. .„...._.. „. _„, 

BEGIN 

FROMCOL «• OLONDx; 

END ;. - _ - _... 

END ; 
NEXTCRD» WRlTECNEWCRCDN3*lO'LlNt*]); 
L.LN£NJiX_..«-...J^LM£JiDX+NEJU-i. 

END OF LINET8L LOOP; 

END OF CARDFIXUP; 



07106670 
07106700 



XITJ 

COMMENT 



..Pf?O.CLD.lM.^.. jN..S£iTiQN_ JJj_0.00p_^^^ A^i- CALLED BY Tht A^AL 
ROUTINE* THE STATEMENT I'S Sca"|\NED F'qH THE PRESENCE OF 
LINE NUMBERcS), IK PQUND* THE NUMBER jS ENTERED IN 
LlhLl 



07106900 
07107000 

CT-iiiza-o^.- 

07107400 
07107500 

.- fl,7iill6JQD - 

07107700 
07108000 

£MtNT0aP00.Q05 

A 08000100 

08000200 

QflOOO^ nn 



COMMENT 



IFST PROCESSES IF STAlLMENTS. 



PROCEDURE IFST; 

BEGIN 
LABEI, XIT; 



08000400 

oeiooooo 
JLal OOl QO.- 



EQUALMCDETOG *■ RELOPMUOEi 
WHILE STEPI > THENV DO 

IF ELCLASS = PEMC LnT THEN GU M D_ 

SCANM0DE *■ s'SmODE; " " 

IF STEPI «* NUMBER THEN 

ENT ERLIKETBL : 



0810G200 
08100300 
_0_8.LOOa.Q5. 
08100400 
08100500 
08100600 



ELSE 

IF FLCLASS = 5TATSTART THF.N 



08100690 
08100700 

OfliooaoQ 



BEGIN 



EQUALMODETOG ♦• ASGNOPMOOEJ 

statement; 



end; 



xitj end of ifst; 

COMMENT "ON*' STATEMENT PHOCESSQR, 



08100900 

oeioiooo 
oaioijoo 
oeioigoo 

08101300 
08101400 



PROCEDURE OnST; 

BEGIN 
LABEL XIT# back; 



08101500 
08200000 
0820010 



.MCKi 



while STEPI ^ GOTOV DC 

IF ELCLASS s PERCENT THEN GO xn> 
IF. STEP! ■ NU^BEK IhEN 
ENTERLINETBL ELSE GO XiTi 
IF STEPI ■ COMMA THEN 6Q BACK; 

END nr qnst; 



06200200 
06200300 
0_§20040_0 
08200500 
082U0600 
0e<i9070Q 
08200800 
06200900 
Qfl SO lOOO 



m • 



r 



9 

I0| 

12 



13 

14 
IS 
18 
17 

ia 



l1(t 

[2U| 

fl 

221 
23 
24 
2S 
26 
27 
28 
29 
30 



31 

32 

33 

34 

35 

■US 

3?" 

38 

39 

40 



43 
44 
45 
46 
47 
48 
4» 
50 
51 
52 
53 
54 
56 
56 



COMMENT 
..PiiUCEDU 
LABEL 



•EOF" LABtL PHOCtSiiOW, bE/\HCHt.-5 KCH EOF LABEL^i 



RE EXIE.S.IX.. - _ 

BEGIN 

xit; 

- ^iKlLL- BILEL /..._E£JiC£J^- -OIL _ 

IF ELCLASS = COLON THEN 
BEGIN 

- lE...iiI££X-.5 kU.Mii,£!i LtiLd _ _._„ 

BEGIN 

ENTERLlNETBLi 

„ - -WiilLE STEPI _^._Jg£ACiJiT D.Qi.lNi3JJi,I.N<i 

LINETaLCLlNE^0].C2U:/J ♦■ COlmn [ CNLX ] ; 
ENU; 

.- M^Ull. 

END ; 



XITI 

COMMENT 



END OF eofst; 

^.wAIBix? §.IAT_tM£.N.L..P.RQC£MOfi , _ 



PHUCEDURE MAIST; 

_-,: aE.G.LN _.. 



COMMENT 

.* 

PROCEDU 



IF STEPI » INPUTV QR LLCLASS a PRiNTV 
EOFST; 

END OF MAUSIi _ 

"GOSUB" STATEMENT PROCLSSOH, 
ALSO USED BY ♦♦GO TO", 



THEN 



RE gosubst; 

BEGIN 
- IP ST£f,l s 

END OF GOSUBSTi 
PROCEDURE STATEMENT; 
..„ _ .,. BEGIN 



NUMBER THEN EN TERL IN ETBL; 



06300000 
08300100 
. OB J.U 020.0. 
06300300 
0830OA00 
QB 3Q Q«}Q 
08300600 
08300700 
QflJ-QQaO-Q 
08300805 
08300810 

..cmiQoaj3. 

083Q0a20 
08300825 
flaJ.iJ.Q.9..QQ 
08301000 
0830U0C 

08400010 
08'tOOlOO 

eflM.Q2.D.jQ 

oe'jooaoo 

06400£(00 
0.a«.Q05QQ 
08^00000 
08500010 

-oaiifloioo 

08500200 

08500300 
0850040 



LABEL 



BEGIN 



exit; 

SCANMODE •• IWMODE; 
CASE gLJAT^SSpA„RT Qj" 



08500500 
08900000 
089001CU 



COMMENT 
COMMENT 
_COMMEN.T 
COMMENT 
COMMENT 



ifst; 

.QN1.SI;...... 

defst; 
dimst; 

fokst; 
letst; 
matst; 



GO 
GO 

.£0- 



GO 
GO 



EXIT; 

exit; 

exit; 
exit; 



COMMENT 
COMMENT 
COMMENT 



COMMENT 
COMMENT 
CQ MMFflL 



remst; go exit; 
datast; go exit; 
go tost ; G0SUB3T; 



089002J30 
08900400 

..Ofi9gg50..Q.. 

08900600 
08900700 

.Qa90XL£LfliL 
08900900 

08901000 

..ai.9g_ufii, 

08901200 

08901300 
08901400 



COMMENT 
CQMME NI. 



COMMENT 
COMMENT 
COMMENT 



GO EXIT; GO exit; 
readst; go exit; 

_s tqpst; go i .n.11 

filest; go exit; 

G0SUBST; 

j nputst i kofst; 



* NEXT STATEMENT 



08901500 
08901600 
08901700 



08901800 
08901900 
08 902000 



printst; eofst; 
i^ritest; go exit; 
returnst; go exit ; 



08902100 
08902200 
8 90 2300 . 



COMMENT 
-OlUL___ 



restorest; go exit; 
end of case statement; 



08902400 
08902500 
06 90260 



08902700 
08902800 

Qe9 Q 2 900 



m m 



tND OF statement; 

COMMENT SEQUENCER IS THE DIRECTOR UK ThE WHOLE AFFAIR, IT CALLS 
ROUTINES- NECEiSARY_lP PRQCUCLE IHt H£SEQUENCED FIL E. 



3 
1 

|5 
6 
|/ 

a 

3 

t(l 
VI 
lu 
|.3| 
'14 
Vi 
16 
'17 
18 
li 
'20- 
21 

»- 
23 
24 
26 " 
26 

n 

28 

29 
30 
31 ~ 
33 

33 

;« 

35 

36 _ 

37 ~ 
38 
39 
40 
41 
43 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
56 
M 
&7 



PROCEDURE 

LABEL 
INTEGER 



sequencer; 



BEGIN 



DEFINE 
BOULEAN 
SAVE ARRAY 



start*edf; 

i^rec/bastmncr*fkom»tud#llnuse(>l» 
..LASiu:M:tiii^-.LAii.Js£.yj... 

SEO » C21»273#; 

reseq*tblout; 

isfioiau! . „ __ 



REAL 



BEGI 
END 



errcnt; 

LASTLINENO <- lSEQ *■ "(LASTSEQ ♦■ lOUOOOOCO); 

ESP[0] «• o; ._ 

DISKI0C1*ESP# 30/ COMMON); 
TBLOUf * ESP[9].C6»123 = "IS"; 

Jr_&AS£„J:. £SP1I1„>__(;).^1H£NL „ 

N 



08903000 
THE 09000000 

._ Q.,9.ogyiQja 

09000200 
09000300 
09000400 
09000500 
09000510 

__...flAQim,S4.5- 

09000525 
09000527 

JlS0fifi5.3XL 



X****** 



090005^10 

**090U0600 
0900070 



09000600 

09001000 

,0 900 1 iQjQ, 



*■ ti>P[83.SEQ; 



STARtj 



reseq *■ true; incr 

f"ROM_ *. £.SP,LS]J TO_Q 

; 

RRl *■ TBLHDR((LLN*ESPtn.C33Jl5]),U0»83); 
IF TBLCUJ TH£NJ'LLI^''"BL_WXIH RRlH^Ptl^; 
FILL CARD WITH ESPC 3 3 # ESP C 4 3 ; 
FILL KARD WiTh ESPC9 3 » ESP t 2 3 ; 
FILk_NEW WIJM ES P[93^Eb P[2]; 



REA0<CARD*10#LlNt*3) tE0F3; 
ILU. -t , 6 E T AjjS A MRLLIN li.I)_; 



09001200 
09001300 

...,..jQ.£giJ.iAQ.Q„„ 
09001500 
09001600 

__. 09_0.0.L700.. 

09001800 
09001900 

.0_90 U1.91i2 

09002000 
09002010 
Q.£0fi2.a2ii. 



IF CURRENTLINENO S LASTLINENO THEN 
ERRCNT ♦• ERRCNT + l 

..EJ>l£.J.i(ilUiiL!».D__*.-.CiiMENlLlNi£Mil.._^ __ __ 

IF RESEQ THEN 

IF CURRENTLINENO > FRCjM AND CLRREMLINENO S TUtJ THEN 



09002100 
09002105 

..Q.9fl-Q2.2-Q.0 



B£Gm. 



09002300 
09002400 



£l!itl3.. 



LINC93 «• DECCNVTCBASEj; 
BASE «• (;RRl«-bAS£) + INCR; 
e^SF I lK.t9l » nFC CNVT(HRl»CUKRFNTl JNENQU 



09002600 
09002700 
Q9Q02B0Q 



CCl «■ CC73-9; 


09002030 




CARDSCANCCCl*CC73»CHARHY); 


09002040 




cdmpresscard; 


09002050 





BEGI 
END 



N 



IF RRl < LSEQ THEN % RRl IS NEW LINE NUMBER. 
1 
R_R1 * LSEQ + 2; LINt91 «• {3.E£CNyTCRRiJ; 

; 

COMMENT WRITE "CARD" IN NEW FILE. MaY FIXUP LSTER; 
WRlT E(KARD *l0,LINt*3) ; 



linectr ♦ o; 

deflineno; * make entry for line* in info ARRY 

X QUA LMODE TO G j^^ SGNQPt^UpE j , 



09002900 

C9003000 
0.900 3.1 QQ 

09003200 

09003300 

Q90035QQ 

09003600 
, 0900370C 
09O03 fl0Q- 



SCANMODE *■ SSMQDE; 

CNOx > o; 

if s tepi g statstabt then statement; 

IF LINECTR X THEN 



BEGI 

end; 



N 



LINETBLtLlNtWD3.t27i6j «• lINECTK; 
LINENBX * LINENOX ♦ LINECTR; LINECTR ♦ 

LSEQ » RRi; NREC » NRECfll 



09003900 
09003990 
900 4000 
09004100 
09004200 
09i)U4lQO 
09004400 
09004500 
09004600 



• • 



/"■■ 



3 
4 I 

5 

/ 
8 

',n\ 






14, 

u 

161, 
,17 

lie 

19 

21 

I 
23 

|24 

|26 

1% 

l27 

28 
20 
30 
31 

32 

3n 

34 
35 

l3(i 

37 

38 

•19 

40 

11 

I 

42 

43 
44 

45 

_ 
46 

47 

48 

49 

50 

51 

52 

S3 

M 



55 
56 

5Z. 



BEGIN 



IF TBLOUT THEN 



END 



ESPIl Ls CREa*,l) 

REC * REC +i; 
IF I ■ 29 THEN 
_WRlIl.CT.8L.#l_gA£iPi*liJ. 



CUMMLNT BUILD TABLE FlLEi 
it-SP lb TEMGPHARY STORAGE NOkv, 

Niun .i-y.j-_i= iiLh.LikLNa..A Ru:xiu.3z;4ix.ii- 



EOFJ 



BEGIN 



GQ start; 

IF. I.B.UCiJ_IHXN.._ 



.*._.>v.riIIE jCUI lABULS 



-CaMMENT 



ESPC(REc+n MQD 303 »* lastseq; 

_ writ E t T.BLJL3.i).iiSEi*lU. „ _. 

READ(TBLC0]*30»EbP[*]); 
ESP[0] 1= REC; 

llSiT£IIiJL.tOJL£.lC)£.£^PL^.i,a -. _ _ _ 

LOCKCTBU**); 
END ; 

- CLL0S£1(IAR,0.U. _ ,_ 

lockckard**); 

COMMON ♦ LSEQ; 

IF LRR-C.N.I._.> _^, lH.Ej^i._WKnjJ.KEMQTE/iiEgEHR_*ER„RCfiUl 

CAROFIXUP; 

END OF sequencer; 

lNlXUli2AT.lQJi_..F_Qfi_.HLa£Jifi/D.iSJ<, 



FILL SP£CIALC*J WITH 

Q.al23.QC£.0aQ.0,.ClQQ.0.0O.Qj... 

0CT13* 
OCTH* 

QCli.7_arm.O0.DiKliJfi.O..QD.Q.*.. 

OcT33067063ai250223' 
0CT330C7l62«2250l2b, 

niL[J5.MC-fi.MMjQ0.Q-iai?_ 

DCT21, 
OcT3201000000000000* 

Q,Cl2..3M.Q.C3.0.Q<lO.Q OOOOQ^ 

0CT34* 

OCTISOCOOOQOOOCOOOQ' 

- a.Q-UJQZ&22..La.iM^A2^k^. 

OCT 3400000000000000* 
OCT 0007000000000040, 

„.Q,Clll,A _„.. „..._ 

0CT52* 

0CT360300O00O000401, 
C T35000000000Q0301* 



..*.,Q,JiaSSh.AJ„C.H .„„-...,. __.,_ _ 

XCOMMERCIAL AT 
*UNASSIGNED(GUESTIQN MARK) 

% CALM ,_ „.. _:„.,..._____ 

% > 

* * ADD O PERATOR 

% A UNASSIGNED 

% . UNASSIGNED* ARITHMETIC DEC. PT 

A L 



i & LNASSU5NED 

* ( 

A < _ _ 

i «. 

% X UNASSIGNED, BEG OF RELATIONAL 

.l-..J._.MlSlJiLfci£.y.# „. _ _._ _ 



ocThoooooooooooooo, 

OCT 2000000000000000* 
0C T3300637002 254125* 



X $ LNASSIGNEU* 

% * ^-ULOP* "**"sEXPONENT OPERATOR. 

% - ADDOP* MINUS 



OCT3700COO0OO0OO000* 
OCT 360C000000O0 1001* 
OCT130OO00QO00O OO 00*. 



* ; SEMI-COLON, 



OCT2100000000000000* 
0CT33Q0606144S50425* 
QCT33Q4 6 1600425 4425* 



* E X P Q N E N r " OP E R A f C) fi 
% / DIV LPERaTdn 

* * COMMA 



09004700 
09004800 
.09-0 4-9-00 
09005100 
09005200 

j)90.ysia.o 

09005400 
09005500 
-0..900560.Q 
0900570C 
09005800 

Q5..0..&5.9i3..Q 

09006000 
09006100 
QS0M2.QQ. 
09006300 
09006400 
Q.9..Q C?65QQ. 
09Q06510 
09006600 
9006 610 

09006700 
09010000 
IOOlOOOOO 
lOOCOlOU 
10000200 
iOQU0300 
10000400 
10000500 

.-Laimn6Qja. 



10000700 
10000800 
100U090Q 
10001000 

loooiioo 

LQ0.Q.12.Q.Q 

10001300 
10001/400 

..liLOU.iaflfl- 
10001600 
10001700 

.JJJ.o.giMii_ 



10001900 
10002000 

10002 100 



10002200 
10002300 
10002400 



* X PERCENT 
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